    Call z(CType(p, Short), CType(q, Single))